home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / sync / bang2.zip / BANG.OLD < prev    next >
Text File  |  1995-10-27  |  5KB  |  156 lines
  1. # BANG! The Russian Roulette of Lottery Programs
  2. # Copyright 1995 Charles McColm
  3. #
  4. # I set BANG to use Renegade Pipe codes because I just used DOS' edit command
  5. # to write the code.  I'm planning on doing an expanded version in C after
  6. # I finish my course.  Feel free to modify the code but leave my name in as
  7. # the original author.
  8.  
  9.  
  10. # Trap any keys already in que
  11. ASYNC
  12.  
  13. # Define Variables
  14. INT CHAMBER 0               # Chamber Bullet is In
  15. INT ROUNDS   0               # How Many Rounds to Fire Off (Player Slected)
  16. INT WINNINGS 0               # Total Winnings
  17.  
  18. :TOP
  19. CLS
  20. PRINT "\r\n|4                                 ▀▄▀▄▀▄▀▄▀▄▀▄▀\r\n"
  21. PRINT "|8                                     BA|7NG|15!"
  22. PRINT "\r\n|4                                 ▄▀▄▀▄▀▄▀▄▀▄▀▄\r\n"
  23. PRINT "\r\n\r\n"
  24. PRINT "|8                         Cop|7yri|15ght|8 1995 |8Cha|7rl|15es |8McC|7ol|15m"
  25. PRINT "\r\n|4                    The Russian-Roulette of Lottery Programs.|8"
  26.  
  27. PRINT "\r\n\r\n                        Φ |15A |8Φ |7About BANG!/Instructions"
  28. PRINT "\r\n                        |8Φ |15F |8Φ |7Fire Away!"
  29. PRINT "\r\n                        |8Φ |15Q |8Φ |7Quit to the BBS!"
  30. PRINT "\r\n\r\n|15└─|7─|8─."
  31.  
  32. GETCMD "AFQ"
  33.  
  34. COMPARE_KEY A
  35. IF_TRUE
  36.     CLS
  37.     PRINT "\r\n|20|15 WARNING! |16"
  38.     PRINT "\r\n\r\nIn no way does the author of this game encourage anyone to play"
  39.     PRINT "\r\nrussian roulette for real.  This is just a twisted BBS game.\r\n"
  40.     PRINT "\r\n"
  41.     PRINT "|4BANG!|15 is a highly addictive lottery game.  You choose how "
  42.     PRINT "many chambers\r\nof the gun you want with a maximum of 5."
  43.     PRINT "  For each chamber\r\nthat goes off empty you get 50k credits."
  44.     PRINT "\r\n\r\n"
  45.     PRINT "HOWEVER!  If you fire the chamber with the bullet you get hung up and lose"
  46.     PRINT "\r\n30 minutes.  Such is the high cost of gambling!"
  47.     PRINT "\r\n\r\nI encourage your comments:"
  48.     PRINT "\r\n                          FidoNet: Charles McColm @1:252/120"
  49.     PRINT "\r\n                         InterNet: mccolm@bconnex.net"
  50.     PRINT "\r\n                              BBS: The BUG BBS 705-725-0183 14.4k"
  51.     PRINT "\r\n@PAUSE@"
  52. GOTO TOP
  53. END_IF
  54.  
  55. COMPARE_KEY F
  56. IF_TRUE
  57.     CLS
  58.     RANDOM CHAMBER 6         # Random Chamber 0-5 bullet is in.
  59.     ADD CHAMBER 1           # Random Chamber 1-6 bullet is in.
  60.     PRINT "\r\n|8Ho|7w |8man|7y |8bul|7let|15s |8to Fir|7e|15? |8"
  61.     GETNUM ROUNDS 5             # Ask User how many bullets to fire.
  62.     PRINTF "\r\n\r\n|7Firing|15 %3ld |7bullets...|4" ROUNDS
  63.     PRINT "\r\nReady? @PAUSE@"
  64.     
  65.     COMPARE ROUNDS 1
  66.     IF_GREATER_OR_EQUAL
  67.         COMPARE ROUNDS CHAMBER
  68.         IF_LESS
  69.             ADJUST_USER_CREDITS 50
  70.             ADD WINNINGS 50
  71.             PRINT "\r\n|20|14 CLICK |16|15 - You Win 50k @PAUSE@"
  72.             LOG "$+ Credit Adjustment: 50k"
  73.         ELSE
  74.             PRINT "\r\n|8BA|7NG|15! |8..|7.|15 -30 minutes  |8Goo|7dby|15e!@PAUSE@"
  75.             ADJUST_USER_MINUTES -30
  76.             LOG ">> Minute Adjustment: -30"
  77.             HANGUP
  78.         END_IF
  79.     END_IF
  80.  
  81.     COMPARE ROUNDS 2
  82.     IF_GREATER_OR_EQUAL
  83.         COMPARE ROUNDS CHAMBER
  84.         IF_LESS
  85.             ADJUST_USER_CREDITS 50
  86.             ADD WINNINGS 50
  87.             PRINT "\r\n|20|14 CLICK |16|15 - You Win 50k @PAUSE@"
  88.             LOG "$+ Credit Adjustment: 50k"
  89.         ELSE
  90.             PRINT "\r\n|8BA|7NG|15! |8..|7.|15 -30 minutes  |8Goo|7dby|15e!@PAUSE@"
  91.             ADJUST_USER_MINUTES -30
  92.             LOG ">> Minute Adjustment: -30"
  93.             HANGUP
  94.         ENDIF
  95.     END_IF
  96.     
  97.     COMPARE ROUNDS 3
  98.     IF_GREATER_OR_EQUAL
  99.         COMPARE ROUNDS CHAMBER
  100.         IF_LESS
  101.             ADJUST_USER_CREDITS 50
  102.             ADD WINNINGS 50
  103.             PRINT "\r\n|20|14 CLICK |16|15 - You Win 50k @PAUSE@"
  104.             LOG "$+ Credit Adjustment: 50k"
  105.         ELSE
  106.             PRINT "\r\n|8BA|7NG|15! |8..|7.|15 -30 minutes  |8Goo|7dby|15e!@PAUSE@"
  107.             ADJUST_USER_MINUTES -30
  108.             LOG ">> Minute Adjustment: -30"
  109.             HANGUP
  110.         ENDIF
  111.     END_IF
  112.  
  113.     COMPARE ROUNDS 4
  114.     IF_GREATER_OR_EQUAL
  115.         COMPARE ROUNDS CHAMBER
  116.         IF_LESS
  117.             ADJUST_USER_CREDITS 50
  118.             ADD WINNINGS 50
  119.             PRINT "\r\n|20|14 CLICK |16|15 - You Win 50k @PAUSE@"
  120.             LOG "$+ Credit Adjustment: 50k"
  121.         ELSE
  122.             PRINT "\r\n|8BA|7NG|15! |8..|7.|15 -30 minutes  |8Goo|7dby|15e!@PAUSE@"
  123.             ADJUST_USER_MINUTES -30
  124.             LOG ">> Minute Adjustment: -30"
  125.             HANGUP
  126.         ENDIF
  127.     END_IF
  128.  
  129.     COMPARE ROUNDS 5
  130.     IF_GREATER_OR_EQUAL
  131.         COMPARE ROUNDS CHAMBER
  132.         IF_LESS
  133.             ADJUST_USER_CREDITS 100
  134.             ADD WINNINGS 100
  135.             PRINT "\r\n|20|14 CLICK |16|15"
  136.             PRINT "\r\n* BONUS - 100k Credits *@PAUSE@"
  137.             LOG "$+ Credit Adjustment: 100k"
  138.         ELSE
  139.             PRINT "\r\n|8BA|7NG|15! |8..|7.|15 -30 minutes  |8Goo|7dby|15e!@PAUSE@"
  140.             ADJUST_USER_MINUTES -30
  141.             LOG ">> Minute Adjustment: -30"
  142.             HANGUP
  143.         ENDIF
  144.     END_IF
  145.     PRINT "\r\n|4Con|5gra|6tul|9ati|10ons|11! |12You |13sur|14viv|15ed!"
  146.     PRINTF "\r\n|15To|7ta|8l |15win|7nin|8gs:|15 %3ld k credits, congratulations." WINNINGS
  147.     PRINT "@PAUSE@"
  148.     GOTO TOP
  149. END_IF
  150.  
  151. COMPARE_KEY Q
  152. IF_TRUE
  153.     PRINT "|4BYE! BYE!@PAUSE@"
  154. ENDIF
  155.  
  156.